home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / listbox / virtxt / inimaint.bas < prev    next >
BASIC Source File  |  1994-01-22  |  23KB  |  695 lines
  1. 'INIMAINT.BAS: VBC Version
  2.  
  3. Sub ChangeFileList (filestr$)
  4.  
  5.     IniFileName$ = "VIRTEXT.INI"  'name of ini file
  6.     AppName$ = "Display"          'Name of application or section heading
  7.     KeyName$ = "File1"            'Keyword or variable name"
  8.     DefaultStr$ = "NONE"
  9.     Numeric% = 0                  'Tell it we are looking for a string
  10.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  11.  
  12. '***********************************************************
  13. '   If NONE is returned the file does not exist - create it
  14. '***********************************************************
  15.  
  16.     If ReturnStr$ = "NONE" Then
  17.     SaveFileINIFile
  18.     SaveOptions
  19.     End If
  20.  
  21. '***********************************************************
  22. '*  Get the files that are saved we'll move them down one
  23. '***********************************************************
  24.  
  25. For X = 1 To 5
  26.  
  27.     Select Case X
  28.     Case 1
  29.     KeyName$ = "File1"         'Keyword or variable name"
  30.     Case 2
  31.     KeyName$ = "File2"         'Keyword or variable name"
  32.     Case 3
  33.     KeyName$ = "File3"         'Keyword or variable name"
  34.     Case 4
  35.     KeyName$ = "File4"         'Keyword or variable name"
  36.     Case 5
  37.     KeyName$ = "File5"         'Keyword or variable name"
  38.     End Select
  39.  
  40.  
  41.     DefaultStr$ = " "          'Default string (for String variables)
  42.     Numeric% = 0   'Tell it we are looking for a string
  43.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  44.  
  45.     Select Case X
  46.     Case 1
  47.     File2$ = ReturnStr$          'Keyword or variable name"
  48.     Case 2
  49.     File3$ = ReturnStr$          'Keyword or variable name"
  50.     Case 3
  51.     File4$ = ReturnStr$          'Keyword or variable name"
  52.     Case 4
  53.     File5$ = ReturnStr$          'Keyword or variable name"
  54.     Case 5
  55.     File6$ = ReturnStr$          'Keyword or variable name"
  56.     End Select
  57.  
  58.     If Trim$(ReturnStr$) = Trim$(FullFilePath) Then Exit Sub
  59.  
  60. Next
  61.  
  62. ' Save the file name that was just selected
  63.  
  64. For X = 1 To 5
  65.  
  66.     IniFileName$ = "VIRTEXT.INI"    'name of ini file
  67.     AppName$ = "Display"           'Name of application or section heading
  68.  
  69.     Select Case X
  70.     Case 1
  71.     KeyName$ = "File1"             'Keyword or variable name"
  72.     NewVal$ = FullFilePath
  73.     Case 2
  74.     KeyName$ = "File2"             'Keyword or variable name"
  75.     NewVal$ = File2$
  76.     Case 3
  77.     KeyName$ = "File3"             'Keyword or variable name"
  78.     NewVal$ = File3$
  79.     Case 4
  80.     KeyName$ = "File4"             'Keyword or variable name"
  81.     NewVal$ = File4$
  82.     Case 5
  83.     KeyName$ = "File5"             'Keyword or variable name"
  84.     NewVal$ = File5$
  85.     End Select
  86.  
  87.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  88.  
  89.     If Trim$(NewVal$) <> "" Then
  90.     VirtualText.zBar1.Visible = True
  91.     VirtualText.mnuFileList(X).Visible = True
  92.     VirtualText.mnuFileList(X).Caption = "&" + Trim$(Str$(X)) + " " + NewVal$
  93.     End If
  94.  
  95. Next
  96.  
  97. End Sub
  98.  
  99. Sub ReadIni (AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$)
  100.  
  101. ' Read data from Private Profile (.ini) File
  102.  
  103. If Numeric% Then    'we are looking for integer input
  104.     Numeric% = GetPrivateProfileInt(AppName$, KeyName$, nDefault, IniFileName$)
  105. Else
  106.     Dim RetStr As String * 255 'Create an empty string to be filled
  107.     nSize% = 255               'uncertain - possibly length of fill string
  108.     lenRetString% = GetPrivateProfileString(AppName$, KeyName$, DefaultStr$, RetStr$, nSize%, IniFileName$)
  109.     ReturnStr$ = Left$(RetStr$, lenRetString%)
  110.  
  111. End If
  112.  
  113. End Sub
  114.  
  115. Sub ReadINIFile ()
  116.  
  117.     IniFileName$ = "VIRTEXT.INI"        'name of ini file
  118.     AppName$ = "Display"         'Name of application or section heading
  119.     KeyName$ = "File1"         'Keyword or variable name"
  120.     DefaultStr$ = "NONE"
  121.     Numeric% = 0   'Tell it we are looking for a string
  122.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  123. '***********************************************************
  124. '   If NONE is returned the file does not exist - create it
  125. '***********************************************************
  126.  
  127.     If ReturnStr$ = "NONE" Then
  128.         ' Initial Default
  129.         optPrinterFont = "Courier New"
  130.         optPrinterFontSize = Val("8.25")
  131.         optPrinterFontBold = False
  132.         optPrinterFontItalic = False
  133.     
  134.         SaveFileINIFile
  135.         SaveOptions
  136.         SaveFormPosition
  137.     End If
  138.  
  139. '***********************************************************
  140. '*  Get the files that are saved
  141. '***********************************************************
  142.  
  143. For X = 1 To 5
  144.  
  145.     Select Case X
  146.     Case 1
  147.     KeyName$ = "File1"         'Keyword or variable name"
  148.     Case 2
  149.     KeyName$ = "File2"         'Keyword or variable name"
  150.     Case 3
  151.     KeyName$ = "File3"         'Keyword or variable name"
  152.     Case 4
  153.     KeyName$ = "File4"         'Keyword or variable name"
  154.     Case 5
  155.     KeyName$ = "File5"         'Keyword or variable name"
  156.     End Select
  157.  
  158.  
  159.     DefaultStr$ = " "          'Default string (for String variables)
  160.     Numeric% = 0   'Tell it we are looking for a string
  161.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  162.  
  163.     If Trim$(ReturnStr$) <> "" Then
  164.     VirtualText.zBar1.Visible = True
  165.     VirtualText.mnuFileList(X).Visible = True
  166.     VirtualText.mnuFileList(X).Caption = "&" + Trim$(Str$(X)) + " " + ReturnStr$
  167.     End If
  168. Next
  169.  
  170.  
  171. '***********************************************************
  172. '*  Get the other information about the display
  173. '***********************************************************
  174.  
  175. '*******************************
  176. '   Read the Background color
  177. '*******************************
  178.     DefaultStr$ = " "          'Default string (for String variables)
  179.     Numeric% = 0   'Tell it we are looking for a string
  180.     KeyName$ = "BackColor"       'Keyword or variable name
  181.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  182.  
  183.     For X = 1 To NumArrays
  184.     VirtualText.TextArray(X).BackColor = Val(ReturnStr$)
  185.     Next
  186.  
  187. '*******************************
  188. '   Read the Foreground color
  189. '*******************************
  190.     DefaultStr$ = " "          'Default string (for String variables)
  191.     Numeric% = 0   'Tell it we are looking for a string
  192.     KeyName$ = "ForeColor"       'Keyword or variable name
  193.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  194.  
  195.     For X = 1 To NumArrays
  196.     VirtualText.TextArray(X).ForeColor = Val(ReturnStr$)
  197.     Next
  198.  
  199.  
  200. '*******************************
  201. '   Read the FontName Setting
  202. '*******************************
  203.     DefaultStr$ = " "          'Default string (for String variables)
  204.     Numeric% = 0   'Tell it we are looking for a string
  205.     KeyName$ = "FontName"    'Keyword or variable name
  206.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  207.  
  208.     For X = 1 To NumArrays
  209.     VirtualText.TextArray(X).FontName = ReturnStr$
  210.     Next
  211.  
  212. '*******************************
  213. '   Read the FontSize Setting
  214. '*******************************
  215.     DefaultStr$ = " "          'Default string (for String variables)
  216.     Numeric% = 0   'Tell it we are looking for a string
  217.     KeyName$ = "FontSize"    'Keyword or variable name
  218.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  219.  
  220.     For X = 1 To NumArrays
  221.     VirtualText.TextArray(X).FontSize = Val(ReturnStr$)
  222.     Next
  223.  
  224. '*******************************
  225. '   Read the FontBold Setting
  226. '*******************************
  227.     DefaultStr$ = " "          'Default string (for String variables)
  228.     Numeric% = 0   'Tell it we are looking for a string
  229.     KeyName$ = "FontBold"    'Keyword or variable name
  230.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  231.  
  232.     For X = 1 To NumArrays
  233.  
  234.     If ReturnStr$ = "YES" Then
  235.         VirtualText.TextArray(X).FontBold = True
  236.     Else
  237.         VirtualText.TextArray(X).FontBold = False
  238.     End If
  239.     Next
  240.  
  241. '*******************************
  242. '   Read the FontItalic Setting
  243. '*******************************
  244.     DefaultStr$ = " "          'Default string (for String variables)
  245.     Numeric% = 0   'Tell it we are looking for a string
  246.     KeyName$ = "FontItalic"    'Keyword or variable name
  247.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  248.  
  249.     For X = 1 To NumArrays
  250.  
  251.     If ReturnStr$ = "YES" Then
  252.         VirtualText.TextArray(X).FontItalic = True
  253.     Else
  254.         VirtualText.TextArray(X).FontItalic = False
  255.     End If
  256.     Next
  257.  
  258. '*******************************
  259. '   Read the Vertical Scroll Setting
  260. '*******************************
  261.     DefaultStr$ = " "          'Default string (for String variables)
  262.     Numeric% = 0   'Tell it we are looking for a string
  263.     KeyName$ = "VerticalScroll"    'Keyword or variable name
  264.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  265.  
  266.     If ReturnStr$ = "YES" Then
  267.     VirtualText.mnuShowVerticalScroll.Checked = True
  268.     VirtualText.VScroll1.Visible = True
  269.     Else
  270.     VirtualText.mnuShowVerticalScroll.Checked = False
  271.     VirtualText.VScroll1.Visible = False
  272.     End If
  273.  
  274. '*******************************
  275. '   Read the Horizontal Scroll Setting
  276. '*******************************
  277.     DefaultStr$ = " "          'Default string (for String variables)
  278.     Numeric% = 0   'Tell it we are looking for a string
  279.     KeyName$ = "HorizontalScroll"    'Keyword or variable name
  280.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  281.  
  282.     If ReturnStr$ = "YES" Then
  283.     VirtualText.mnuShowHorizontalScroll.Checked = True
  284.     VirtualText.HScroll1.Visible = True
  285.     Else
  286.     VirtualText.mnuShowHorizontalScroll.Checked = False
  287.     VirtualText.HScroll1.Visible = False
  288.     End If
  289.  
  290. '*******************************
  291. '   Read the Status Bar Setting
  292. '*******************************
  293.     DefaultStr$ = " "          'Default string (for String variables)
  294.     Numeric% = 0   'Tell it we are looking for a string
  295.     KeyName$ = "StatusBar"    'Keyword or variable name
  296.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  297.  
  298.     If ReturnStr$ = "YES" Then
  299.     VirtualText.mnuShowStatusBar.Checked = True
  300.     VirtualText.Panel3D1.Visible = True
  301.     Else
  302.     VirtualText.mnuShowStatusBar.Checked = False
  303.     VirtualText.Panel3D1.Visible = False
  304.     End If
  305.  
  306. '*******************************
  307. '   Read the View Mode Setting
  308. '*******************************
  309.     DefaultStr$ = " "          'Default string (for String variables)
  310.     Numeric% = 0   'Tell it we are looking for a string
  311.     KeyName$ = "ViewMode"    'Keyword or variable name
  312.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  313.  
  314.     If ReturnStr$ = "Text" Then
  315.     VirtualText.mnuTextMode.Checked = True
  316.     VirtualText.mnuHexMode.Checked = False
  317.     Else
  318.     VirtualText.mnuTextMode.Checked = False
  319.     VirtualText.mnuHexMode.Checked = True
  320.     End If
  321.  
  322. '*******************************
  323. '   Read the Expand Tabs Setting
  324. '*******************************
  325.     DefaultStr$ = " "          'Default string (for String variables)
  326.     Numeric% = 0   'Tell it we are looking for a string
  327.     KeyName$ = "ExpandTabs"    'Keyword or variable name
  328.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  329.  
  330.     If ReturnStr$ = "YES" Then
  331.     VirtualText.mnuExpandTabs.Checked = True
  332.     VirtualText.mnuExpandTabs.Checked = False
  333.     Else
  334.     VirtualText.mnuExpandTabs.Checked = False
  335.     VirtualText.mnuExpandTabs.Checked = True
  336.     End If
  337.  
  338. '*******************************
  339. '   Read the Form Position Top
  340. '*******************************
  341.     DefaultStr$ = " "          'Default string (for String variables)
  342.     Numeric% = 0   'Tell it we are looking for a string
  343.     KeyName$ = "FormTop"    'Keyword or variable name
  344.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  345.  
  346.     VirtualText.Top = Val(ReturnStr$)
  347.  
  348. '*******************************
  349. '   Read the Form Position Left
  350. '*******************************
  351.     DefaultStr$ = " "          'Default string (for String variables)
  352.     Numeric% = 0   'Tell it we are looking for a string
  353.     KeyName$ = "FormLeft"    'Keyword or variable name
  354.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  355.  
  356.     VirtualText.Left = Val(ReturnStr$)
  357.  
  358. '*******************************
  359. '   Read the Form Position Width
  360. '*******************************
  361.     DefaultStr$ = " "          'Default string (for String variables)
  362.     Numeric% = 0   'Tell it we are looking for a string
  363.     KeyName$ = "FormWidth"    'Keyword or variable name
  364.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  365.  
  366. '   Forces a resize event do this later
  367.     VirtualText.Width = Val(ReturnStr$)
  368.  
  369. '*******************************
  370. '   Read the Form Position Height
  371. '*******************************
  372.     DefaultStr$ = " "          'Default string (for String variables)
  373.     Numeric% = 0   'Tell it we are looking for a string
  374.     KeyName$ = "FormHeight"    'Keyword or variable name
  375.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  376.  
  377. '   Forces a resize event do this later
  378.     VirtualText.Height = Val(ReturnStr$)
  379.  
  380. '*******************************
  381. '   Read the Printer FontName Setting
  382. '*******************************
  383.     DefaultStr$ = " "          'Default string (for String variables)
  384.     Numeric% = 0   'Tell it we are looking for a string
  385.     KeyName$ = "PrinterFontName"    'Keyword or variable name
  386.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  387.  
  388.     optPrinterFont = ReturnStr$
  389.  
  390. '*******************************
  391. '   Read the Printer FontSize Setting
  392. '*******************************
  393.     DefaultStr$ = " "          'Default string (for String variables)
  394.     Numeric% = 0   'Tell it we are looking for a string
  395.     KeyName$ = "PrinterFontSize"    'Keyword or variable name
  396.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  397.  
  398.     optPrinterFontSize = Val(ReturnStr$)
  399.  
  400. '*******************************
  401. '   Read the Printer FontBold Setting
  402. '*******************************
  403.     DefaultStr$ = " "          'Default string (for String variables)
  404.     Numeric% = 0   'Tell it we are looking for a string
  405.     KeyName$ = "PrinterFontBold"    'Keyword or variable name
  406.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  407.  
  408.     If ReturnStr$ = "YES" Then
  409.         optPrinterFontBold = True
  410.     Else
  411.         optPrinterFontBold = False
  412.     End If
  413.     
  414. '*******************************
  415. '   Read the Printer FontItalic Setting
  416. '*******************************
  417.     DefaultStr$ = " "          'Default string (for String variables)
  418.     Numeric% = 0   'Tell it we are looking for a string
  419.     KeyName$ = "PrinterFontItalic"    'Keyword or variable name
  420.     ReadIni AppName$, KeyName$, nDefault, DefaultStr$, ReturnStr$, Numeric%, IniFileName$
  421.  
  422.     If ReturnStr$ = "YES" Then
  423.         optPrinterFontItalic = True
  424.     Else
  425.         optPrinterFontItalic = False
  426.     End If
  427.     
  428. End Sub
  429.  
  430. Sub SaveFileINIFile ()
  431.  
  432. ' Save the file name that was just selected
  433.  
  434. For X = 1 To 5
  435.  
  436.     IniFileName$ = "VIRTEXT.INI"    'name of ini file
  437.     AppName$ = "Display"           'Name of application or section heading
  438.     Select Case X
  439.     Case 1
  440.     KeyName$ = "File1"             'Keyword or variable name"
  441.     Case 2
  442.     KeyName$ = "File2"             'Keyword or variable name"
  443.     Case 3
  444.     KeyName$ = "File3"             'Keyword or variable name"
  445.     Case 4
  446.     KeyName$ = "File4"             'Keyword or variable name"
  447.     Case 5
  448.     KeyName$ = "File5"             'Keyword or variable name"
  449.     End Select
  450.  
  451.     If X = 1 Then
  452.     NewVal$ = Trim$(FullFilePath)
  453.     Else
  454.     NewVal$ = ""
  455.     End If
  456.  
  457.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  458.  
  459. Next
  460.  
  461. End Sub
  462.  
  463. Sub SaveFormPosition ()
  464.  
  465. IniFileName$ = "VIRTEXT.INI" 'name of ini file
  466. AppName$ = "Display"         'Name of application or section heading
  467.  
  468.  
  469. '*******************************
  470. '   Save the Form Position Top
  471. '*******************************
  472.     KeyName$ = "FormTop"    'Keyword or variable name
  473.  
  474.     NewVal$ = Str$(VirtualText.Top)
  475.  
  476.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  477.  
  478. '*******************************
  479. '   Save the Form Position Left
  480. '*******************************
  481.     KeyName$ = "FormLeft"    'Keyword or variable name
  482.  
  483.     NewVal$ = Str$(VirtualText.Left)
  484.  
  485.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  486.  
  487. '*******************************
  488. '   Save the Form Position Width
  489. '*******************************
  490.     KeyName$ = "FormWidth"    'Keyword or variable name
  491.  
  492.     NewVal$ = Str$(VirtualText.Width)
  493.  
  494.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  495.  
  496. '*******************************
  497. '   Save the Form Position Height
  498. '*******************************
  499.     KeyName$ = "FormHeight"    'Keyword or variable name
  500.  
  501.     NewVal$ = Str$(VirtualText.Height)
  502.  
  503.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  504.  
  505. End Sub
  506.  
  507. Sub SaveIni (AppName$, IniFileName$, KeyName$, NewVal$)
  508.  
  509. ' Update INI file
  510.  
  511. ResultCode% = WritePrivateProfileString(AppName$, KeyName$, NewVal$, IniFileName$)
  512. If ResultCode% = 0 Then
  513.     MsgBox "Error updating INI file!", 16, "ERROR!"
  514. End If
  515.  
  516. End Sub
  517.  
  518. Sub SaveOptions ()
  519.  
  520.     IniFileName$ = "VIRTEXT.INI" 'name of ini file
  521.     AppName$ = "Display"         'Name of application or section heading
  522.  
  523. '*******************************
  524. '   Save the Background color
  525. '*******************************
  526.     KeyName$ = "BackColor"       'Keyword or variable name
  527.  
  528.     NewVal$ = Str$(VirtualText.TextArray(1).BackColor)  'if Numeric value convert it to string
  529.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  530.  
  531. '*******************************
  532. '   Save the Foreground color
  533. '*******************************
  534.     KeyName$ = "ForeColor"       'Keyword or variable name
  535.  
  536.     NewVal$ = Str$(VirtualText.TextArray(1).ForeColor)  'if Numeric value convert it to string
  537.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  538.  
  539.  
  540. '*******************************
  541. '   Save the FontName Setting
  542. '*******************************
  543.     KeyName$ = "FontName"    'Keyword or variable name
  544.  
  545.     NewVal$ = VirtualText.TextArray(1).FontName
  546.  
  547.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  548.  
  549. '*******************************
  550. '   Save the FontSize Setting
  551. '*******************************
  552.     KeyName$ = "FontSize"    'Keyword or variable name
  553.  
  554.     NewVal$ = Str$(VirtualText.TextArray(1).FontSize)
  555.  
  556.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  557.  
  558. '*******************************
  559. '   Save the FontBold Setting
  560. '*******************************
  561.     KeyName$ = "FontBold"    'Keyword or variable name
  562.  
  563.     If VirtualText.TextArray(1).FontBold = True Then
  564.     NewVal$ = "YES"
  565.     Else
  566.     NewVal$ = "NO"
  567.     End If
  568.  
  569.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  570.  
  571. '*******************************
  572. '   Save the FontItalic Setting
  573. '*******************************
  574.     KeyName$ = "FontItalic"    'Keyword or variable name
  575.  
  576.     If VirtualText.TextArray(1).FontItalic = True Then
  577.     NewVal$ = "YES"
  578.     Else
  579.     NewVal$ = "NO"
  580.     End If
  581.  
  582.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  583.  
  584. '*******************************
  585. '   Save the Vertical Scroll Setting
  586. '*******************************
  587.     KeyName$ = "VerticalScroll"    'Keyword or variable name
  588.  
  589.     If VirtualText.mnuShowVerticalScroll.Checked = True Then
  590.     NewVal$ = "YES"
  591.     Else
  592.     NewVal$ = "NO"
  593.     End If
  594.  
  595.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  596.  
  597. '*******************************
  598. '   Save the Horizontal Scroll Setting
  599. '*******************************
  600.     KeyName$ = "HorizontalScroll"    'Keyword or variable name
  601.  
  602.     If VirtualText.mnuShowHorizontalScroll.Checked = True Then
  603.     NewVal$ = "YES"
  604.     Else
  605.     NewVal$ = "NO"
  606.     End If
  607.  
  608.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  609.  
  610. '*******************************
  611. '   Save the Status Bar Setting
  612. '*******************************
  613.     KeyName$ = "StatusBar"    'Keyword or variable name
  614.  
  615.     If VirtualText.mnuShowStatusBar.Checked = True Then
  616.     NewVal$ = "YES"
  617.     Else
  618.     NewVal$ = "NO"
  619.     End If
  620.  
  621.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  622.  
  623. '*******************************
  624. '   Save the View Mode Setting
  625. '*******************************
  626.     KeyName$ = "ViewMode"    'Keyword or variable name
  627.  
  628.     If VirtualText.mnuTextMode.Checked = True Then
  629.     NewVal$ = "Text"
  630.     Else
  631.     NewVal$ = "Hex"
  632.     End If
  633.  
  634.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  635.  
  636. '*******************************
  637. '   Save the Expand Tabs Setting
  638. '*******************************
  639.     KeyName$ = "ExpandTabs"    'Keyword or variable name
  640.  
  641.     If VirtualText.mnuExpandTabs.Checked = True Then
  642.     NewVal$ = "YES"
  643.     Else
  644.     NewVal$ = "NO"
  645.     End If
  646.  
  647.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  648.  
  649. '*******************************
  650. '   Save the Printer FontName Setting
  651. '*******************************
  652.     KeyName$ = "PrinterFontName"    'Keyword or variable name
  653.  
  654.     NewVal$ = optPrinterFont
  655.  
  656.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  657.  
  658. '*******************************
  659. '   Save the Printer FontSize Setting
  660. '*******************************
  661.     KeyName$ = "PrinterFontSize"    'Keyword or variable name
  662.     
  663.     NewVal$ = Str$(optPrinterFontSize)
  664.  
  665.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  666.  
  667. '*******************************
  668. '   Save the FontBold Setting
  669. '*******************************
  670.     KeyName$ = "PrinterFontBold"    'Keyword or variable name
  671.        
  672.     If optPrinterFontBold = True Then
  673.        NewVal$ = "YES"
  674.     Else
  675.        NewVal$ = "NO"
  676.     End If
  677.  
  678.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  679.  
  680. '*******************************
  681. '   Save the FontItalic Setting
  682. '*******************************
  683.     KeyName$ = "PrinterFontItalic"    'Keyword or variable name
  684.  
  685.     If optPrinterFontItalic = True Then
  686.        NewVal$ = "YES"
  687.     Else
  688.        NewVal$ = "NO"
  689.     End If
  690.  
  691.     SaveIni AppName$, IniFileName$, KeyName$, NewVal$
  692.     
  693. End Sub
  694.  
  695.